home *** CD-ROM | disk | FTP | other *** search
/ Kompuutteri K-CD 2002 #1 / K-CD_2002-01.iso / Delphi / INSTALL / program files / Borland / Delphi6 / Doc / ExtDlgs.int < prev    next >
Encoding:
Text File  |  2001-05-22  |  1.2 KB  |  46 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Borland Delphi Visual Component Library         }
  5. {                                                       }
  6. {  Copyright (c) 1995-2001 Borland Software Corporation }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. unit ExtDlgs;
  11.  
  12. {$R-,H+,X+}
  13.  
  14. interface
  15.  
  16. uses Messages, Windows, SysUtils, Classes, Controls, StdCtrls, Graphics,
  17.   ExtCtrls, Buttons, Dialogs;
  18.  
  19. type
  20.  
  21. { TOpenPictureDialog }
  22.  
  23.   TOpenPictureDialog = class(TOpenDialog)
  24.   protected
  25.     procedure PreviewClick(Sender: TObject); virtual;
  26.     procedure DoClose; override;
  27.     procedure DoSelectionChange; override;
  28.     procedure DoShow; override;
  29.     property ImageCtrl: TImage;
  30.     property PictureLabel: TLabel;
  31.   published
  32.     property Filter stored IsFilterStored;
  33.   public
  34.     constructor Create(AOwner: TComponent); override;
  35.     function Execute: Boolean; override;
  36.   end;
  37.  
  38. { TSavePictureDialog }
  39.  
  40.   TSavePictureDialog = class(TOpenPictureDialog)
  41.   public
  42.     function Execute: Boolean; override;
  43.   end;
  44.  
  45. implementation
  46.